home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / databa_1 / tablelst.frm < prev    next >
Text File  |  1999-07-10  |  18KB  |  580 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmTablesTVW 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "List of Tables"
  6.    ClientHeight    =   4380
  7.    ClientLeft      =   2760
  8.    ClientTop       =   3750
  9.    ClientWidth     =   7410
  10.    Icon            =   "TablelsTVW.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4380
  17.    ScaleWidth      =   7410
  18.    ShowInTaskbar   =   0   'False
  19.    Begin VB.CommandButton cmdFldProperty 
  20.       Caption         =   "Fld property"
  21.       Height          =   375
  22.       Left            =   4890
  23.       TabIndex        =   11
  24.       Top             =   3780
  25.       Width           =   1035
  26.    End
  27.    Begin VB.CommandButton cmdTable 
  28.       Caption         =   "Table"
  29.       Height          =   375
  30.       Left            =   3720
  31.       TabIndex        =   10
  32.       Top             =   3780
  33.       Width           =   1035
  34.    End
  35.    Begin VB.CommandButton cmdClose 
  36.       Caption         =   "Close"
  37.       Height          =   375
  38.       Left            =   6060
  39.       TabIndex        =   0
  40.       Top             =   3780
  41.       Width           =   1035
  42.    End
  43.    Begin MSComctlLib.TreeView tvwDB 
  44.       Height          =   3210
  45.       Left            =   180
  46.       TabIndex        =   3
  47.       Top             =   900
  48.       Width           =   3210
  49.       _ExtentX        =   5662
  50.       _ExtentY        =   5662
  51.       _Version        =   393217
  52.       Style           =   7
  53.       ImageList       =   "ImageList1"
  54.       Appearance      =   1
  55.    End
  56.    Begin MSComctlLib.ListView lvwProperties 
  57.       Height          =   2130
  58.       Left            =   3690
  59.       TabIndex        =   9
  60.       Top             =   1530
  61.       Width           =   3435
  62.       _ExtentX        =   6059
  63.       _ExtentY        =   3757
  64.       View            =   3
  65.       LabelEdit       =   1
  66.       LabelWrap       =   -1  'True
  67.       HideSelection   =   0   'False
  68.       FullRowSelect   =   -1  'True
  69.       _Version        =   393217
  70.       Icons           =   "ImageList1"
  71.       SmallIcons      =   "ImageList1"
  72.       ForeColor       =   -2147483640
  73.       BackColor       =   -2147483643
  74.       BorderStyle     =   1
  75.       Appearance      =   1
  76.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  77.          Name            =   "MS Sans Serif"
  78.          Size            =   8.25
  79.          Charset         =   0
  80.          Weight          =   400
  81.          Underline       =   0   'False
  82.          Italic          =   0   'False
  83.          Strikethrough   =   0   'False
  84.       EndProperty
  85.       NumItems        =   0
  86.    End
  87.    Begin MSComctlLib.ImageList ImageList1 
  88.       Left            =   2850
  89.       Top             =   330
  90.       _ExtentX        =   1005
  91.       _ExtentY        =   1005
  92.       BackColor       =   -2147483643
  93.       ImageWidth      =   16
  94.       ImageHeight     =   16
  95.       MaskColor       =   12632256
  96.       _Version        =   393216
  97.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  98.          NumListImages   =   5
  99.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  100.             Picture         =   "TablelsTVW.frx":030A
  101.             Key             =   "imgDatabase"
  102.          EndProperty
  103.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  104.             Picture         =   "TablelsTVW.frx":0556
  105.             Key             =   "imgClosed"
  106.          EndProperty
  107.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  108.             Picture         =   "TablelsTVW.frx":0652
  109.             Key             =   "imgOpen"
  110.          EndProperty
  111.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  112.             Picture         =   "TablelsTVW.frx":0766
  113.             Key             =   "imgField"
  114.          EndProperty
  115.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  116.             Picture         =   "TablelsTVW.frx":0878
  117.             Key             =   "imgProp"
  118.          EndProperty
  119.       EndProperty
  120.    End
  121.    Begin VB.Label lblFieldName 
  122.       BorderStyle     =   1  'Fixed Single
  123.       Height          =   285
  124.       Left            =   4905
  125.       TabIndex        =   8
  126.       Top             =   1170
  127.       Width           =   2130
  128.    End
  129.    Begin VB.Label lblField 
  130.       Caption         =   "Field:"
  131.       Height          =   195
  132.       Left            =   4320
  133.       TabIndex        =   7
  134.       Top             =   1215
  135.       Width           =   510
  136.    End
  137.    Begin VB.Label lblTable 
  138.       Caption         =   "Table:"
  139.       Height          =   195
  140.       Left            =   4320
  141.       TabIndex        =   6
  142.       Top             =   900
  143.       Width           =   510
  144.    End
  145.    Begin VB.Label lblTableName 
  146.       BorderStyle     =   1  'Fixed Single
  147.       Height          =   285
  148.       Left            =   4905
  149.       TabIndex        =   5
  150.       Top             =   855
  151.       Width           =   2130
  152.    End
  153.    Begin VB.Label lblFieldProperties 
  154.       Caption         =   "Field properties:"
  155.       Height          =   195
  156.       Left            =   3780
  157.       TabIndex        =   4
  158.       Top             =   585
  159.       Width           =   1140
  160.    End
  161.    Begin VB.Label lblTableList 
  162.       Caption         =   "Tables && Fields:"
  163.       Height          =   195
  164.       Left            =   180
  165.       TabIndex        =   2
  166.       Top             =   585
  167.       Width           =   2310
  168.    End
  169.    Begin VB.Label lblDatabase 
  170.       Caption         =   "Database:"
  171.       Height          =   420
  172.       Left            =   180
  173.       TabIndex        =   1
  174.       Top             =   45
  175.       Width           =   6315
  176.    End
  177. End
  178. Attribute VB_Name = "frmTablesTVW"
  179. Attribute VB_GlobalNameSpace = False
  180. Attribute VB_Creatable = False
  181. Attribute VB_PredeclaredId = True
  182. Attribute VB_Exposed = False
  183. ' TablesTVW.frm
  184. '
  185. ' By Herman Liu
  186. '
  187. Option Explicit
  188.  
  189. Dim rsSchema As adodb.Recordset
  190. Dim rs As adodb.Recordset
  191.  
  192. Dim mNodeDB As node
  193. Dim mNodeTables As node
  194. Dim mnodeFields As node
  195.  
  196. Dim mListItem As ListItem
  197. Dim mCurrListRef           ' Flag to assure this node is already clicked
  198.  
  199.  
  200.  
  201. Private Sub Form_Load()
  202.     On Error Resume Next
  203.     
  204.     lblDatabase = "Database: " + gFileSpec
  205.    
  206.      ' Configure ListView control.
  207.     lvwProperties.ListItems.Clear
  208.     lvwProperties.Icons = ImageList1
  209.     lvwProperties.SmallIcons = ImageList1
  210.     lvwProperties.ColumnHeaders.Clear
  211.     lvwProperties.ColumnHeaders.Add , , "Property", 1700
  212.     lvwProperties.ColumnHeaders.Add , , "Value", lvwProperties.Width - 1700
  213.     lvwProperties.View = lvwReport
  214.         ' we want to show coloumn headers
  215.     lvwProperties.HideColumnHeaders = False
  216.         ' We don't want shade/highlight any item at start
  217.     lvwProperties.HideSelection = True
  218.         
  219.        'Configure TreeView
  220.     tvwDB.Nodes.Clear
  221.    
  222.     Set gAcnn = New adodb.Connection
  223.     gAcnn.CursorLocation = adUseClient
  224.     gAcnn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & gFileSpec & ";"
  225.        ' If you use 4.0
  226.     ' gAcnn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & gFileSpec & ";"
  227.    
  228.     Set rsSchema = gAcnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
  229.    
  230.     Me.MousePointer = vbHourglass
  231.   
  232.     '--------------------------------------------------------------------
  233.     ' Set root node of TreeView.
  234.     '--------------------------------------------------------------------
  235.     Set mNodeDB = tvwDB.Nodes.Add(, , "RootDB", "Database", "imgDatabase")
  236.     mNodeDB.Tag = "RootDB"
  237.      
  238.     '------------------------
  239.     ' Set table nodes.
  240.     '------------------------
  241.     Dim mtblName As String
  242.     Do Until rsSchema.EOF
  243.          ' Since MS current schema returns tables named "MSys...."
  244.          ' as well as their TABLE_TYPE is also "TABLE", we exclude them.
  245.         If UCase(Left(rsSchema!Table_name, 4)) <> "MSYS" Then
  246.            If